home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8902c.d64 / shortwriter v1.0 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 0 Y=16:Z=0:A=4096:POKE53281,9:POKE53280,0:POKE204,1:PRINTCHR$(14):POKE657,128
  2. 1 INPUT"[147]1.[197][201][206][199][197][194][197][206] 2.[211][208][197][201][195][200][197][210][206] 3.[215][197][201][212][197][210][211][195][200][210][197][201][194][197][206]";X:PRINT"[144][147]";:IFX=2THENGOTO8
  3. 2 IFX=3 THEN GOSUB7:GOTO3:DATA169,139,160,10,133,95,132,96
  4. 3 GETA$:IFA$=""THENGOTO3:DATA169,138,160, 12,133, 90,132, 91,169,  2
  5. 4 POKEA,ASC(A$):PRINTA$;:A=A+1:Z=Z+1:IFZ=256THENZ=0:Y=Y+1:DATA160, 10,133, 88
  6. 5 IFA$<>"[133]"THENGOTO3:DATA132, 89,32,191,163,169,54,141,1,8,169,8,141,2,8,32,237
  7. 6 A=A-1:GOTO1:DATA245,76,226,252
  8. 7 PRINT"[147]";:FORT=4097TOA:PRINTCHR$(PEEK(T));:NEXTT:RETURN
  9. 8 A1=A-4095:FORT=4050TO4095:IFA1>255THENPOKET,255:A1=A1-255:NEXTT
  10. 9 POKET,A1:A1=0:NEXTT:INPUT"[147]FILENAME:";A$:SYS57812""+A$,8:POKE174,Z:POKE175,Y
  11. 10 POKE193,1:POKE194,8:POKE95,202:POKE96,09:POKE90,112:POKE91,11:POKE88,169
  12. 11 POKE89,9:FORT=3304TO3346:READX:POKET,X:NEXTT:SYS3304
  13. 12 FORT=4050TO4095:A=A+PEEK(T):NEXT:A=A+4096:PRINTCHR$(14):POKE657,128
  14. 13 POKE649,0:PRINT"[147][201]DEE UND [208]ROGRAMM VON  [196]AVID VAN [194]EBBER ";:L=54272
  15. 14 FORK=0TO24:READX:POKEL+K,X:NEXT:DATA9,2,0,3,0,0,240,12,2,0,4,0,0,192,16,2,0
  16. 15 DATA6,0,0,64,0,30,243,31,120,169,16,141,20,3,169,15,141,21,3,88,96,255,0,0
  17. 16 DATA162,240,169,0,141,32,208,232,208,253,169,0,141,32,208,76,49,234,49
  18. 17 FORT=3840TO3874:READX:POKET,X:NEXTT:SYS3840:POKE53281,9:FORR=1TO2000:NEXTR
  19. 18 PRINTCHR$(14);"[144][147][146]";:POKEL+4,65:POKEL+11,65:POKEL+18,65:FORT=4096TOA-1
  20. 19 A$=CHR$(PEEK(T)):PRINTA$;:POKE3859,ASC(A$):FORR=1TO20:NEXTR:NEXTT:SYS64738
  21.